Aire maximale sous une courbe

f(x) = If[0 ≤ x ≤ 2, (x - 2)^(2)]
M = Point(f)
g = OrthogonalLine(M, yAxis)
h = OrthogonalLine(M, xAxis)
A = Intersect(h, xAxis)
B = Intersect(g, yAxis)
O = Intersect(xAxis, yAxis)
q1, b, m, a, c = Polygon(B, M, A, O)
texte1: "\text{Aire de }OAMB=" + (LaTeX[q1]) + " cm^{2}"